home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / applescriptMode.tcl < prev    next >
Encoding:
Text File  |  1998-04-05  |  2.5 KB  |  72 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. # AppleScript.tcl
  3. #  John Sarapata
  4. #  sarapata_john@jpmorgan.com
  5. #
  6. # Description:
  7. #    This file implements an AppleScript mode, for people who wish Script
  8. #    Editor had complex functions like search and replace. Currently, it
  9. #    only supports color editing and function finding, but I may extend it.
  10. #
  11. #    I have not found a way to distinguish function definitions from
  12. #    on error constructs, so I assume that any "on name" statements at
  13. #    the beginning of the line are definitions. Script Editor saves files
  14. #    in this format, so you will only need to be careful when creating
  15. #    functions in Alpha.
  16. #############################################################################
  17.  
  18. alpha::mode Scrp 1.0 dummyScrp {*.script} {electricBraces electricTab}
  19.  
  20. #===============================================================================
  21. #    Set up the mode variables
  22. newPref    v wordWrap {0} Scrp
  23. newPref    f autoMark {0} Scrp
  24. newPref    v prefixString {--} Scrp
  25. newPref    v leftFillColumn {3} Scrp
  26. newPref    v funcExpr {^(on)[ \t]+(\w+)} Scrp
  27. newPref    v parseExpr {^[^ \t]+[ \t]+(\w+)} Scrp
  28. newPref    v wordBreak {\w+} Scrp
  29. newPref    v wordBreakPreface {\W} Scrp
  30.  
  31. proc dummyScrp {} {}
  32.  
  33. #===============================================================================
  34. #    Set up comments and keywords
  35. set scriptKeyWords {
  36.     on end error global local return it me pi result space tab
  37.     close copy count data size delete duplicate exists get launch
  38.     make move open print quit run save in of is after before
  39.     div mod and not or start starts begin begins end ends contains
  40.     does equal equals greater less than as reference
  41.     set try
  42.     tell if repeat else then times while until with by
  43.     considering ignoring timeout transaction script property prop
  44.     first second third fourth fifth sixth seventh eighth ninth tenth
  45.     last front back middle every some from to through thru
  46. }
  47.  
  48. regModeKeywords -e {--} -b {\(*} {*\)} -c red -k blue Scrp $scriptKeyWords
  49.  
  50. unset scriptKeyWords
  51.  
  52. #===============================================================================
  53. #    File Marking
  54. proc Scrp::MarkFile {} {
  55.     global ScrpmodeVars
  56.     set pos 0
  57.     while {![catch {search -s -f 1 -r 1 -m 0 -i 1 $ScrpmodeVars(funcExpr) $pos} res]} {
  58.         set start [lindex $res 0]
  59.         set end [lindex $res 1]
  60.         set text [lindex [getText $start $end] 1]
  61.         set pos $end
  62.         set inds($text) "$start $end"
  63.     }
  64.     
  65.     if {[info exists inds]} {
  66.         foreach f [lsort [array names inds]] {
  67.             setNamedMark $f [lineStart [lineStart [lindex $inds($f) 0]] - 1] [lindex $inds($f) 0] [lindex $inds($f) 1]
  68.         }
  69.     }
  70. }
  71.  
  72.